home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_B.d64 / super-music +++ (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  136 lines
  1. 0 poke53280,14:poke53281,6
  2. 1 printchr$(142)"[147][154]b-soft-competition[146]"
  3. 2 forx=1to2000:nextx
  4. 6 poke53281,2:poke53280,2
  5. 7 poke774,25:poke53272,21
  6. 9 print"[144][147]      ^[198][198][198][198][198][198]^
  7. 10 [153]"      < *right$(NULL)* >
  8. 20 print"      [217]  oo  [212]
  9. 30 [153]"      left$ mid$lenlen(NULL) chr$
  10. 40 print"      [217][199]    [200][212]
  11. 50 [153]"       mid$=lenlen=(NULL)
  12. 60 print"      [213][195][189]  [173][195][201]     grashoff-soft
  13. 70 [153]"      peekcloseclose(NULL)(NULL)closeclosepeek       presents:
  14. 80 print"      [171][195][195][204][186][195][195][179]
  15. 90 [153]"      peek======peek
  16. 91 print"      [194]======[194]       super-music +++
  17. 92 [153]"      peek======peek
  18. 93 print"      [171][194][194][194][194][194][194][179]
  19. 94 [153]"      -(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)<
  20. 95 print"      [171][177][177][177][177][177][177][179]
  21. 96 [153]"      peek(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)peek
  22. 97 print"      [202][195][195][195][195][195][195][203]   ":forx=1to3421:next
  23. 110 l1=54272:l2=54279:l3=54286
  24. 120 h1=l1+1:h2=l2+1:h3=l3+1
  25. 130 v1=l1+4:v2=l2+4:v3=l3+4
  26. 140 poke 54296,15
  27. 150 poke v1+1,9:poke v2+2,0
  28. 160 poke v2+1,36:poke v2+2,36
  29. 170 poke v3+1,18:poke v3+2,170
  30. 180 t=ti
  31. 200 poke v1,16:poke v2,32:poke v3,16
  32. 210 read s:if s=0 goto 290
  33. 220 read x1,y1,x2,y2,x3,y3
  34. 230 if x1 then poke h1,x1:poke l1,y1:poke v1,17
  35. 240 if x2 then poke h2,x2:poke l2,y2:poke v2,33
  36. 250 if x3 then poke h3,x3:poke l3,y3:poke v3,17
  37. 260 t=t+s
  38. 270 if t>ti goto 270
  39. 280 goto 200
  40. 290 forj=l1 to 54296:poke j,0:next j:goto900
  41. 295 data 20,38,126,21,154,7,163
  42. 296 data 20,38,126,21,154,7,163
  43. 297 data 20,38,126,21,154,7,163
  44. 298 data 20,38,126,21,154,7,163
  45. 299 data 20,38,126,21,154,7,163
  46. 300 data 20,147,8,147,8,53,147
  47. 301 data 20,0,0,25,177,0,0
  48. 302 data 20,38,126,22,227,8,23
  49. 307 data 20,34,75,21,154,8,147
  50. 310 data 20,34,75,25,177,0,0
  51. 311 data 20,147,8,147,8,53,147
  52. 312 data 20,34,75,21,154,8,147
  53. 313 data 20,0,0,0,0,0,0
  54. 314 data 20,34,75,21,154,4,73
  55. 315 data 20,34,75,21,154,8,147
  56. 316 data 20,0,0,25,177,0,0
  57. 317 data 20,34,75,21,154,8,147
  58. 320 data 20,38,126,21,154,7,163
  59. 330 data 20,32,94,25,177,6,108
  60. 340 data 20,34,75,21,154,8,147
  61. 349 data 20,0,0,25,177,0,0
  62. 350 data 20,43,180,25,177,0,0
  63. 360 data 20,38,126,22,227,8,23
  64. 370 data 20,0,0,25,177,0,0
  65. 400 data 20,34,75,21,154,8,147
  66. 401 data 20,38,126,28,214,6,108
  67. 410 data 20,34,75,25,177,0,0
  68. 420 data 20,38,126,28,214,6,108
  69. 430 data 20,43,52,25,177,0,0
  70. 440 data 20,34,75,21,154,8,147
  71. 450 data 20,0,0,25,177,0,0
  72. 460 data 20,32,94,22,227,8,23
  73. 470 data 20,0,0,19,63,6,108
  74. 500 data 20,34,75,21,154,8,147
  75. 510 data 20,34,75,25,177,0,0
  76. 511 data 20,34,75,21,154,8,147
  77. 513 data 20,32,94,22,227,8,23
  78. 520 data 20,38,126,21,154,7,163
  79. 523 data 20,34,75,21,154,4,73
  80. 525 data 20,34,75,21,154,8,147
  81. 530 data 20,43,52,17,37,0,0
  82. 532 data 20,38,126,21,154,7,163
  83. 540 data 20,45,198,28,214,7,53
  84. 550 data 20,43,52,34,75,0,0
  85. 560 data 20,38,116,28,214,0,206
  86. 570 data 20,34,75,22,227,0,0
  87. 600 data 20,32,94,25,177,6,108
  88. 610 data 20,25,177,22,227,0,0
  89. 620 data 20,28,214,21,154,7,53
  90. 630 data 20,32,94,19,63,8,23
  91. 640 data 20,34,75,21,154,8,147
  92. 650 data 20,0,0,25,177,6,108
  93. 660 data 20,34,75,21,154,4,73
  94. 670 data 20,38,126,21,154,7,163
  95. 672 data 20,147,8,147,8,53,147
  96. 676 data 20,38,126,22,227,8,23
  97. 677 data 20,34,75,21,154,4,73
  98. 679 data 20,0,0,25,177,0,0
  99. 680 data 20,34,75,21,154,4,73
  100. 681 data 20,34,75,21,154,8,147
  101. 682 data 20,38,126,21,154,7,163
  102. 683 data 20,38,126,21,154,7,163
  103. 685 data 20,43,180,25,177,0,0
  104. 690 data 20,0,0,0,0,0,0
  105. 691 data 20,32,94,22,227,8,23
  106. 692 data 20,28,214,21,154,7,53
  107. 693 data 20,34,75,21,154,8,147
  108. 694 data 20,34,75,21,154,8,147
  109. 695 data 20,34,75,21,154,8,147
  110. 696 data 20,75,34,154,21,147,8
  111. 697 data 20,147,8,147,8,53,147
  112. 700 data 20,34,75,21,154,8,147
  113. 710 data 20,34,75,25,177,0,0
  114. 720 data 20,43,52,17,37,0,0
  115. 730 data 20,0,0,0,0,0,0
  116. 740 data 20,34,75,21,154,4,73
  117. 750 data 20,25,177,22,227,0,0
  118. 755 data 20,34,75,21,154,8,147
  119. 760 data 20,34,75,21,154,8,147
  120. 761 data 20,147,8,147,8,53,147
  121. 762 data 20,34,75,21,154,4,73
  122. 764 data 20,34,75,21,154,8,147
  123. 765 data 20,34,75,21,154,8,147
  124. 766 data 20,0,0,0,0,0,0,20,154
  125. 767 data 20,43,52,17,37,0,0
  126. 768 data 20,34,75,21,154,8,147
  127. 769 data 20,32,94,22,227,8,23
  128. 771 data 20,147,8,147,8,53,147
  129. 798 data 20,28,214,21,154,7,53
  130. 799 data 20,147
  131. 800 data 0
  132. 900 print"noch einmal ???  (y[206]n)
  133. 910 [161] a$:[139] a$[178]""[167]910
  134. 920 [139] a$[178]"y"[167][153]"okay":[138]2
  135. 930 [139] a$[178]"n"[167][153]"dann eben nicht,du pfeifenreiniger":[158]64739
  136.